home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00215.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  916 b   |  34 lines

  1. on mouseDown me
  2.   repeat while the mouseDown
  3.     if the locV of sprite 42 < 70 then
  4.       set the blend of sprite 42 to 100
  5.       redr = 255
  6.       redg = redr
  7.       redb = (55 + (15 - the locV of sprite 42)) * 17
  8.       sprite(42).color = rgb(redr, redg, redb)
  9.     else
  10.       if the locV of sprite 42 = 70 then
  11.         sprite(42).color = rgb(255, 255, 0)
  12.         set the blend of sprite 42 to 100
  13.       else
  14.         if the locV of sprite 42 > 70 then
  15.           set the blend of sprite 42 to (71 + (255 - the locV of sprite 42)) * 0.39200000000000002
  16.         end if
  17.       end if
  18.     end if
  19.     set the locV of sprite 42 to the mouseV
  20.     set the locV of sprite 61 to the mouseV
  21.     if the blend of sprite 42 < 10 then
  22.       showit(61, 61)
  23.     else
  24.       hideit(61, 61)
  25.     end if
  26.     updateStage()
  27.   end repeat
  28. end
  29.  
  30. on mouseUp me
  31.   set the locV of sprite 42 to the mouseV
  32.   set the locV of sprite 61 to the mouseV
  33. end
  34.